home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Hyperj-Hz / HyperScale.cpt / HyperScale / card_24479.txt < prev    next >
Encoding:
Text File  |  1990-11-17  |  972 b   |  44 lines
  1. -- card: 24479 from stack: in
  2. -- bmap block id: 25288
  3. -- flags: 0000
  4. -- background id: 24694
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=54 top=292 right=316 bottom=171
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: LAUNCH!
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the userLevel into saveLevel
  23.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  24.   if the userLevel < 3 then exit mouseUp
  25.   choose select tool
  26.   doMenu "Select All"
  27.   doMenu "Select"
  28.   set dragSpeed to 25
  29.   drag from 250,200 to 250,185
  30.   set dragSpeed to 50
  31.   drag from 250,185 to 250,155
  32.   set dragSpeed to 75
  33.   drag from 250,155 to 250,110
  34.   set dragSpeed to 100
  35.   drag from 250,110 to 250,50
  36.  
  37.   doMenu "Select All"
  38.   doMenu "Revert"
  39.   choose browse tool
  40.   set userLevel to saveLevel
  41.   go to card id 2933
  42.  
  43. end mouseUp
  44.